1 POKE53280,6:FORN=1TO4:READA,B:POKEA,B:NEXT:DIMUG(320),OG(320):PRINT"[147]@BMON";
2 PRINT"J@BKNGKJH@NOO@OECHJIBG@J@J@EHGEHIJDJDJDEHHEJDFFGEJDFFGEEFHEEFEAIF@BEH";
3 PRINT"HEEJDAIBHOHJEJDAIBG@JJAKGEMAHC@LAIGE@F@H@D@B@AH@D@B@A@IJ@BJJEHHEIJ@@H";
4 PRINT"JEHGEAIGEHH@MKOFNHEJL@MFOBJD@FHHEIJ@AAIGEHH@MKOFNHEJL@MFO@FIJ@@LDBJDO"
5 A=49152:P=A:C=255:FORB=1024TO1234STEP2:POKEA,PEEK(B)+PEEK(B+1)*16:A=A+1:NEXT
6 T$=CHR$(14)+"[147] 3[196]-[198]UNKTION [214]1.2  VON [210].[198].[211]TREY (1992) ":PRINTT$:POKE53281,1
7 GOSUB17:INPUT" [204][146]ADEN [194][146]ERECHNEN [197][146]NDE ";A$:IFA$<>"L"ANDA$<>"B"THENLIST19
8 IFA$="L"THENINPUT" [206]AME ";F$:GOSUB18:SYS57812F$,8,1:SYS49253:WAIT198,1:GOTO6
9 F$="":PRINTT$:INPUT" [216]-[194]EREICH (A,E) ";XA,XE:INPUT" [217]-[194]EREICH (A,E) ";YA,YE
10 INPUT" [211]CHRITTWEITE    ";S:S=INT(S):IF(XA-XE)*(YA-YE)=0ORS<1ORS>20THEN9
11 SY=(YE-YA)/100:GOSUB18:SX=(XE-XA)/200:FORB=0TO320:OG(B)=200:UG(B)=-1:NEXT
12 FORH=0TO100STEPS:Y=YA+H*SY:FORB=0TO200STEPS:X=XA+B*SX:BP=10+B+H:GOSUB19
13 HP=150-H-INT(Z):IFHP<OG(BP)THENOG(BP)=HP:IFHP>=0THENSYS49152,BP,HP:DATA193,0
14 IFHP>UG(BP)THENUG(BP)=HP:IFHP<200THENSYS49152,BP,HP:DATA194,32,174,64,175,63
15 NEXT:NEXT:WAIT631,255:GOSUB17:PRINTT$:INPUT" [194]ILDNAME ";F$:IFF$=""THEN6
16 PRINT" [199]RAFIK (AB $2000) WIRD GESPEICHERT...":SYS57812F$,8,1:SYS62957:GOTO6
17 POKE53265,PEEK(53265)AND223:POKE53280,6:POKE53272,PEEK(53272)AND247:RETURN
18 X=53265:Y=X+7:POKEX,PEEK(X)OR32:POKEY,PEEK(Y)OR8:POKE53280,0:SYSP,0,C:RETURN
19 Z=COS(50-ABS(X*Y))*45
20 RETURN:REM                                 FUNKTION IN ZEILE 19 EINTRAGEN